home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS031.dsk / DICE ODDS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  47 lines
  1. 0  LIST 25900
  2. 1  FOR X = 1 TO 2000: NEXT X
  3. 5  GOTO 15
  4. 10  PRINT B,C,E: GOTO 100
  5. 15  TEXT : HOME : VTAB 10: HTAB 16: PRINT "DICE ODDS": PRINT : HTAB 12: PRINT "BY DAVID CUSIMANO": FOR I = 0 TO 5000: NEXT I
  6. 20  CLEAR : DIM D(12),F(12): FOR I = 1 TO 12:D(I) = 0:F(I) = 0: NEXT I: HOME : VTAB 3
  7. 25  INPUT "HOW MANY THROWS ?";A
  8. 30  INPUT "THROWS ON SCREEN (Y/N) ?";Y$
  9. 35  IF  LEFT$(Y$,1) = "Y"  THEN 2020
  10. 40  FOR B = 1 TO A
  11. 50 C =  INT(6 * RND(1)) +1 + INT(6 * RND(1)) +1
  12. 60 E =  INT(6 * RND(1)) +1 + INT(6 * RND(1)) +1
  13. 70 D(C) = D(C) +1
  14. 80 F(E) = F(E) +1
  15. 90  IF  LEFT$(Y$,1) = "Y"  THEN 10
  16. 100  NEXT B
  17. 105  TEXT : PRINT "<CTRL-G><CTRL-G><CTRL-G>": HOME : VTAB 3
  18. 107  GOSUB 2000
  19. 110 L = 100
  20. 120  PRINT "#";: HTAB 4: PRINT "DICE 1";: HTAB 12: PRINT "DICE 2";: HTAB 20: PRINT "DICE 1 %";: HTAB 30: PRINT "DICE 2 %"
  21. 130  PRINT 
  22. 140  FOR B = 2 TO 12
  23. 143 D =  INT(D(B)/A *L *100)/100
  24. 146 F =  INT(F(B)/A *L *100)/100
  25. 150  PRINT B;: HTAB 7: PRINT D(B);: HTAB 15: PRINT F(B);: HTAB 24: PRINT D;: HTAB 34: PRINT F
  26. 160  NEXT B
  27. 170  PRINT 
  28. 180  PRINT " MORE THROWS (Y/N) ?";
  29. 190  GET K$: IF K$ < >"N"  AND K$ < >"Y"  THEN 190
  30. 195  IF K$ = "Y"  THEN 20
  31. 200  GOTO 9999
  32. 2000  TEXT : HOME : PRINT "DICE ODDS FOR "A" THROWS": PRINT : PRINT 
  33. 2010  RETURN 
  34. 2020  GOSUB 2000
  35. 2030  PRINT "ROLL NUMBER    DICE 1         DICE 2"
  36. 2040  POKE 34,6
  37. 2050  PRINT : PRINT : PRINT : GOTO 40
  38. 9999  END 
  39. 25900  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>           <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>FROM:  APPLE-CAN<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  40. 60000  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  41. 60100  REM << DICE ODDS >><CTRL-J><CTRL-J>
  42. 60200  REM BY DAVID CUSIMANO<CTRL-J>
  43. 60300  REM AGE -- 14<CTRL-J>
  44. 60400  REM A MEMBER OF
  45. 60500  REM APPLE-CAN  ****<CTRL-J>
  46. 60600  REM TORONTO, ONTARIO,
  47. 60700  REM CANADA<CTRL-J><CTRL-J><CTRL-J>